| From: | Dave Clarke |
| Date: | 2 Sep 2001 at 12:51:29 |
| Subject: | [D5] Re: Opus' Format replacement |
Once upon a time, 30-Aug-01 11:43:04, Steve & Ulli Bowman spoke thus about
'[D5] Re: Opus' Format replacement':
>On 30-Aug-01, on the subject of "[D5] Re: Opus' Format replacement", you
>spoke thus:
>> If You are Workbench3.9 user then You can use its REAction-based
>> Format command for this but I do not know if it works o.k. above
>> 4GB... anybody knows ?
>>
>Sure does. One of SetPatch's jobs is to provide >4GB support. And the
>current Format command, which dates from the OS3.5 BB1, works with >4GB
>drives.
>> And generally what I am trying to do is - more or less - what You
>> wrote :) I try to create a simple new Arexx format.module using
>> Format64 AmigaDOS command... I hope I will be first in this race !
>> :) Do You take a part ?
>>
>Why don't you have it call the AmigaDOS Format command instead? It does
>the job.
And here's a really slack way to do it :)
Move DOpus5:Modules/Format.module to somewhere else.
Copy the small script below to DOpus5:Modules/Format.dopus5
--------------------8<---------------------
/* Format.dopus5 */
parse arg port func srceh desth arguments .
address value port
options results
if func = 'init' then do
dopus command "Format" program "Format" desc "'Format drives'"
exit
end
if arguments = '' then
address command 'r SYS:System/Format'
else do
dopus getstring '"Volume name for '''name'''" 30 "MyDrive" OK|Cancel'
if dopusrc ~= 0 then
address command 'SYS:System/Format DRIVE 'arguments' NAME 'name' QUICK NOICONS'
end
--------------------8<---------------------
You need 'r.lha' from util/cli on Aminet.
Brings up the interface from the Desktop menu and/or icon menu but doesn't
seem to pass the argument....can't have everything in a 60 second script ;^)
Dave